home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XREMBLK.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  314b  |  18 lines
  1. {$IBoDecl}
  2. {$IRemBlk}
  3. {$IPutStr}
  4.  
  5. BEGIN
  6.  
  7.    S := '10101010101010101010';
  8.    S := S + S + S + S;
  9.    repeat
  10.       for i := 1 to 25 do
  11.          PutStr (h,S,1,i,14);
  12.       read(Kbd,ch);
  13.       for i := 1 to 40 do
  14.          RemBlk (2+(i-1)*2,1,2+(i-1)*2,25);
  15.       read(Kbd,ch);
  16.    until ch = ' ';
  17.  
  18. END.